<html><head><title>Movie.pb</title></head>
<body bgcolor="#EFF1F0" link="#3A3966" vlink="#000000" alink="#000000">
<pre><font face="Courier New, Courier, mono"size="2"><font color="#3A3966">;
</font><font color="#3A3966">; ------------------------------------------------------------
</font><font color="#3A3966">;
</font><font color="#3A3966">;   PureBasic - Movie example file
</font><font color="#3A3966">;
</font><font color="#3A3966">;    (c) Fantaisie Software
</font><font color="#3A3966">;
</font><font color="#3A3966">; ------------------------------------------------------------
</font><font color="#3A3966">;
</font>
<b><font color="#3A3966">If</font></b> <font color="#3A3966">InitMovie</font>() = 0
<font color="#3A3966">  MessageRequester</font>(&quot;Error&quot;, &quot;Can't initialize movie playback !&quot;, 0) 
  <b><font color="#3A3966">End</font></b>
<b><font color="#3A3966">EndIf</font></b>

MovieName$ =<font color="#3A3966"> OpenFileRequester</font>(&quot;Choose the movie to play&quot;, &quot;&quot;, &quot;Movie files|*.avi;*.mpg|All Files|*.*&quot;, 0)
<b><font color="#3A3966">If</font></b> MovieName$
  <b><font color="#3A3966">If</font></b> <font color="#3A3966">LoadMovie</font>(0, MovieName$)
  
<font color="#3A3966">    OpenWindow</font>(0, 100, 150,<font color="#3A3966"> MovieWidth</font>(0),<font color="#3A3966"> MovieHeight</font>(0), &quot;PureBasic - Movie&quot;)
<font color="#3A3966">    PlayMovie</font>(0,<font color="#3A3966"> WindowID</font>(0))
      
    <b><font color="#3A3966">Repeat</font></b>
    <b><font color="#3A3966">Until</font></b> <font color="#3A3966">WaitWindowEvent</font>() = <font color="#924B72">#PB_Event_CloseWindow</font>
  <b><font color="#3A3966">Else</font></b>
<font color="#3A3966">    MessageRequester</font>(&quot;Error&quot;, &quot;Can't load the movie...&quot;, 0)
  <b><font color="#3A3966">EndIf</font></b>
<b><font color="#3A3966">EndIf</font></b> </font></pre>
</body></html>
